home *** CD-ROM | disk | FTP | other *** search
- ////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
- Dokumentation zu FIDO Unit FPRINT
- \\\\\\\\\\\\\\\\\\\\////////////////////////
-
- Release 1.00
- ^^^^^^^^^^^^
-
- ========================================================================
- Autor: Matthias Tichy, 2:2440/210.14 @ Classic, Düsseldorf 15.08.1994
- 2:2433/920.14 @ Lite
- ========================================================================
-
- 1. Print :
- ------------
- Die Unit FPRINT.PAS stellt Funktionen und Prozeduren zur Verfügung,
- die sich mit dem Drucker und seiner Ansteuerung befassen.
- Dies ist eine Low Level Unit. Sie benötigt keinerlei Routinen
- anderer Units. Mit Ausnahme der in Turbo Pascal (6.0 oder höher)
- Unit-Library TURBO.TPL enthaltenen Standard-Units.
-
- 2. Kurbeschreibung:
- -------------------
- Init ............... Muß IMMER aufgerufen werden bevor man die anderen
- Methoden benutzt.
- Done ............... Muß IMMER aufgerufen werden, um den Drucker zu schließen.
-
- setTDT ............. Muß IMMER nach der INIT-Methode aufgerufen werden, um
- den den Drucker-Treiber festzulegen.
-
- CheckTDT ........... Prüft ob der übergebene Dateiname eine TDT-Drucker-
- treiber-Datei ist.
-
- GetPrinter ......... Gibt den vollen Druckernamen des in der übergebenen
- Datei zurück.
-
- Error .............. Gibt die Fehler-Meldung aus.
- Überschreiben, um eine andere Meldung auszugeben.
-
- setparameter ....... Setzt einen Parameter.
-
- printeln ........... Druckt eine Zeile auf den Drucker
- MIT Return (writeln)
-
- printe ............. Druckt eine Zeile OHNE Return (write)
-
- lf ................. Papier eine Zeile vorwärts transportieren.
-
-
- 3. Detaillierte Beschreibung:
- -----------------------------
-
- ===============================================================
- INIT
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Initialisiert den Drucker. Als ersten
- Druckerbefehl ausführen.
-
- DEKLARATION ... Init;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keine
-
- ===============================================================
- DONE
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Deinitialisiert den Drucker. Als letzten
- Druckerbefehl ausführen.
-
- DEKLARATION ... Done;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keine
-
- ===============================================================
- setTDT
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Legt den Drucker-treiber fest. Nach INIT auf-
- rufen.
-
- DEKLARATION ... setTDT(datei : string);
-
- PARAMETER ... datei - Dateiname des TDT-Treibers
-
- ERGEBNIS ... keine
-
- ===============================================================
- CheckTDT
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Prüft, ob übergebene Datei ein Druckertreiber
- ist.
-
- DEKLARATION ... CheckTDT(datei : string) : boolean;
-
- PARAMETER ... datei - Dateiname des TDT-Treibers, der ge-
- prüft werden soll.
-
- ERGEBNIS ... CheckTDT - true, wenn es ein TDT ist
- false, wenn nicht
-
- ===============================================================
- GetPrinter
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Gibt den vollständigen Druckername eines TDT-
- Druckertreibers zurück.
-
- DEKLARATION ... GetPrinter(datei : string) : string;
-
- PARAMETER ... datei - Dateiname des TDT-Treibers.
-
- ERGEBNIS ... GetPrinter - vollständiger Druckername
-
- ===============================================================
- Error
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Gibt eine Fehlermeldung aus und beendet das
- Programm. Sollte überschrieben werden.
-
- DEKLARATION ... Error(object_id, code : Byte);
-
- PARAMETER ... object_id - gibt zurück in welchem Object
- also immer FDrucker. Kann man dann in fxxx
- verwenden writeln(fxxx[object:id];
-
- ERGEBNIS ... keine
-
-
- ===============================================================
- setParameter
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Setzt Parameter an eine bestimmte Stelle.
-
-
- DEKLARATION ... setParameter(index, Text : Byte);
-
- PARAMETER ... index - Stelle an der der Parameter stehen
- soll. (im Parameter-Array)
- Text - der Parameter an sich
-
- ERGEBNIS ... keine
-
-
- ===============================================================
- printeln
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Druckt eine Zeile mit abschliessendem CRLF
-
- DEKLARATION ... printeln(Text : string);
-
- PARAMETER ... Text : rate mal :-))
-
- ERGEBNIS ... keine
-
-
- ==============================================================
- Print
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Druckt eine Zeile ohne CRLF
-
- DEKLARATION ... Print(Text : string);
-
- PARAMETER ... Text - Text der gedruckt werden soll.
-
- ERGEBNIS ... keine
-
- ==============================================================
- PrinterInit
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Initialisiert den Drucker.
-
- DEKLARATION ... PrinterInit;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- BoldOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Fett-Modus ein.
-
- DEKLARATION ... BoldOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- BoldOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Fett-Modus aus.
-
- DEKLARATION ... BoldOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- ItalicOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet Kursiv-Druck ein.
-
- DEKLARATION ... ItalicOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- ItalicOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Kursiv-Druck aus.
-
- DEKLARATION ... ItalicOff.
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- UnderLinedOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet das Unterstreichen ein.
-
- DEKLARATION ... UnderlinedOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- UnderLinedOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet das Unterstreichen aus.
-
- DEKLARATION ... UnderlinedOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- cr
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Druckkopf zurück zum linken Seitenrand.
-
- DEKLARATION ... cr;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- lf
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Macht einen Zeilenvorschub.
-
- DEKLARATION ... lf;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- ff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Macht einen Seitenvorschub.
-
- DEKLARATION ... ff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- BreitOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Breitmodus ein.
-
- DEKLARATION ... breitOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- BreitOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Breitmodus aus.
-
- DEKLARATION ... BreitOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- SchmalOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Schmalmodus ein.
-
- DEKLARATION ... SchmalOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- SchmalOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet den Schmalmodus aus.
-
- DEKLARATION ... SchmalOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- HighOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet auf Hohe Buchstaben.
-
- DEKLARATION ... HighOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- HighOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet Hoch-Modus aus.
-
- DEKLARATION ... HighOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- LowOn
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet auf tiefergelegte ;-) Zeichen.
-
- DEKLARATION ... LowOn;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- ==============================================================
- LowOff
- ---------------------------------------------------------------
- ERSTDATUM ... 12.05.1994 LETZTE ÄNDERUNG ... 12.05.1994
-
- MODIFIKATION ...
- ---------------------------------------------------------------
-
- BESCHREIBUNG ... Schaltet tiefergelegte Zeichen aus.
-
- DEKLARATION ... LowOff;
-
- PARAMETER ... keine
-
- ERGEBNIS ... keins
-
- 4. Beispiele:
- -------------
- ===============================================================
- Init
- ---------------------------------------------------------------
-
- begin
- Init;
- setTDT('necp6.tdt');
- BoldOn;
- Printeln('Funktionierts oder nicht. Das ist hier die Frage!');
- Printeln(';-))))');
- Printeln('UP THE IRONS!');
- Done;
- end;
-
- Die weiteren Prozeduren sind leicht durch Auprobieren zu er-
- schließen. Viel Spaß.
- Wer allerdings Lust hat kann mir weitere Beispiele schicken,
- die ich dann in dieser Unit einschließen werde.
-
- 5. History:
- -----------
-
- Diese Units sind hervorgegangen aus einer Unit namens DR. Diese
- Unit hatte ähnliche Prozeduren. Das File-format war anders und
- in einem nicht lesbaren Format. Dies wurde mit dieser Unit ge-
- ändert, nun kann man leicht mit einem Editor neue Druckertreiber
- generieren.
-
- Neuerungen nach Release ...
- ---------------------------
- Noch nischts :-)
-
- ========================================================================
-
- /////////////////////\\\\\\\\\\\\\\\\\\\\\\\\
- Ende der Dokumentation zur FIDO Unit FPRINT
- \\\\\\\\\\\\\\\\\\\\\////////////////////////